Public Class frm_ListaEmpleados
    Public str_EstadoVendor As String
    Public as_ubicacion As String

    Private Sub frm_ListaEmpleados_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If str_EstadoVendor = "I" Then
            dgv_ListaEmpleados.DataSource = ListaEmpleadosInactivos(as_ubicacion)
        ElseIf str_EstadoVendor = "A" Then
            dgv_ListaEmpleados.DataSource = ListaEmpleadosActivos(as_ubicacion)
        ElseIf str_EstadoVendor = "T" Then
            dgv_ListaEmpleados.DataSource = ListaEmpleadosTodos(as_ubicacion)
        End If
    End Sub

    Private Sub chk_Todos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk_Todos.Click
        Dim li_i As Integer

        If chk_Todos.Checked = True Then
            For li_i = 0 To dgv_ListaEmpleados.Rows.Count - 1
                dgv_ListaEmpleados.Rows(li_i).Cells("Check").Value = True
            Next
        Else
            For li_i = 0 To dgv_ListaEmpleados.Rows.Count - 1
                dgv_ListaEmpleados.Rows(li_i).Cells("Check").Value = False
            Next
        End If
    End Sub

    Private Sub btn_Agregar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Agregar.Click
        Dim li_i As Integer
        Dim ls_vendor, ls_sorteoporapellido, ls_razontermino As String
        Dim ldt_fechaingreso, ldt_fechatermino As Nullable(Of Date)

        frm_RepVacacionesSunat.dgv_Listado.Rows.Clear()

        For li_i = 0 To dgv_ListaEmpleados.Rows.Count - 1
            If dgv_ListaEmpleados.Rows(li_i).Cells("Check").Value = True Then
                ls_vendor = dgv_ListaEmpleados.Rows(li_i).Cells("VENDOR").Value

                If ls_vendor = Nothing Then Continue For

                If dgv_ListaEmpleados.Rows(li_i).Cells("SORTEOPORAPELLIDO").ToString = Nothing Then
                    ls_sorteoporapellido = Nothing
                Else
                    ls_sorteoporapellido = dgv_ListaEmpleados.Rows(li_i).Cells("SORTEOPORAPELLIDO").Value
                End If

                If dgv_ListaEmpleados.Rows(li_i).Cells("FECHAINGRESO").ToString = Nothing Or dgv_ListaEmpleados.Rows(li_i).Cells("FECHAINGRESO").Value.Equals(System.DBNull.Value) Then
                    ldt_fechaingreso = Nothing
                Else
                    ldt_fechaingreso = Format(CDate(dgv_ListaEmpleados.Rows(li_i).Cells("FECHAINGRESO").Value), "dd/MM/yyyy")
                End If

                If dgv_ListaEmpleados.Rows(li_i).Cells("FECHATERMINO").ToString = Nothing Or dgv_ListaEmpleados.Rows(li_i).Cells("FECHATERMINO").Value.Equals(System.DBNull.Value) Then
                    ldt_fechatermino = Nothing
                Else
                    ldt_fechatermino = Format(CDate(dgv_ListaEmpleados.Rows(li_i).Cells("FECHATERMINO").Value), "dd/MM/yyyy")
                End If

                If dgv_ListaEmpleados.Rows(li_i).Cells("RAZONTERMINO").ToString = Nothing Or dgv_ListaEmpleados.Rows(li_i).Cells("RAZONTERMINO").Value.Equals(System.DBNull.Value) Then
                    ls_razontermino = Nothing
                Else
                    ls_razontermino = dgv_ListaEmpleados.Rows(li_i).Cells("RAZONTERMINO").Value
                End If

                frm_RepVacacionesSunat.dgv_Listado.Rows.Add(False, ls_vendor, ls_sorteoporapellido, ldt_fechaingreso, ldt_fechatermino, ls_razontermino)
            End If
        Next

        frm_RepVacacionesSunat.Show()
        frm_RepVacacionesSunat.Refresh()

        Close()
        Dispose()
    End Sub
End Class